Dim CurrentI As Integer

Property Get ValueOfI() As Integer
	ValueOfI = CurrentI
End Property

Public Property Get Bar(a$)
End Property

Dim J
J = ValueOfI
